VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsTempTableDelete"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function DeleteTempInfo(ByVal nTEMPSeqNum As String)
                                
    
    Dim cnDeleteTempTable As ADODB.Connection
    
    
    
    Set cnDeleteTempTable = New ADODB.Connection
    
    
    Set cmd = New ADODB.Command 'CreateObject("ADODB.COMMAND")
    
    With cnDeleteTempTable
        .ConnectionString = GetConnectionString() 'Johann (20090625): Centralised code for connection string added
        .Open
    End With
    
    '-------------------------------------------
    
    cmd.CommandText = "dir_del_dir_temp_request"
    cmd.CommandType = adCmdStoredProc
    Set cmd.ActiveConnection = cnDeleteTempTable
    
        cmd.Parameters.Append cmd.CreateParameter("nTempSeqNum", adDouble, adParamInput, , CDbl(Val(nTEMPSeqNum)))
    
    cmd.Execute
    
    
PROC_EXIT:
  DeleteTempInfo = ""
  Exit Function
  
PROC_ERROR:
  nSeqNo = 0
  Err.Raise Err.Number, "DeleteTempInfo", _
            "Failed to insert into dir_temp_request." & vbCrLf & _
            "Description: " & Err.Description
  GoTo PROC_EXIT

cnDeleteTempTable.Close
Set cnDeleteTempTable = Nothing

End Function


